From: Camm Maguire Date: Tue, 3 Mar 2026 16:40:27 +0000 (+0000) Subject: [PATCH] X-Git-Tag: archive/raspbian/2.6.14-21+rpi1^2~1 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/%22mailto:sonu.itbhu%40googlemail.com//%22mailto:i18n-csb%40linuxcsb.org/%22/%22http:/www.example.com/%22mailto:sonu.itbhu%40googlemail.com/%22mailto:i18n-csb%40linuxcsb.org/%22?a=commitdiff_plain;h=3882247e75a58e68235addd8adc4f9769b056568;p=gcl.git [PATCH] TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. Gbp-Pq: Name Version_2_6_15pre20 --- diff --git a/git.tag b/git.tag index 07737b03..f5f6d58a 100644 --- a/git.tag +++ b/git.tag @@ -1 +1 @@ -"Version_2_6_15pre19" +"Version_2_6_15pre20" diff --git a/lsp/gcl_make_pathname.lsp b/lsp/gcl_make_pathname.lsp index 68808f6c..c8b947cb 100644 --- a/lsp/gcl_make_pathname.lsp +++ b/lsp/gcl_make_pathname.lsp @@ -25,7 +25,7 @@ (string-concatenate "(" (substitute #\^ #\! (subseq x 0 2)) (subseq x 2) ")"))) (cons #v"\\*" (lambda (x) #.(ads "([^/.]*)"))) (cons #v"\\?" (lambda (x) #.(ads "([^/.])"))) - (cons #v"\\." (lambda (x) "\\.")))) + (cons #v"[+|.^$()]" (lambda (x) (string-concatenate "\\" x))))) (defconstant +physical-pathname-defaults+ '(("" "" "") #+winnt("" "([A-Za-z]:)?" ":") #-winnt("" "()" "")